/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 2.ddi / PUTFPAT.C

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 01 00 00 00 5c 43 42 | 54 52 45 45 5c 50 52 4f |.....\CB|TREE\PRO|
|00000010| 47 52 41 4d 53 5c 50 55 | 54 46 50 41 54 2e 43 00 |GRAMS\PU|TFPAT.C.|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 1b 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2f 2a 20 28 43 29 20 43 | 6f 70 79 72 69 67 68 74 |/* (C) C|opyright|
|00000090| 20 31 39 38 34 2c 38 35 | 2c 38 36 2c 38 37 20 57 | 1984,85|,86,87 W|
|000000a0| 61 6c 74 65 72 20 4c 2e | 20 50 65 61 63 6f 63 6b |alter L.| Peacock|
|000000b0| 20 20 20 41 6c 6c 20 52 | 69 67 68 74 73 20 52 65 |   All R|ights Re|
|000000c0| 73 65 72 76 65 64 20 20 | 20 2a 2f 0d 0a 2f 2a 20 |served  | */../* |
|000000d0| 20 20 50 20 55 20 54 20 | 46 20 50 20 41 20 54 20 |  P U T |F P A T |
|000000e0| 2e 20 43 20 20 31 30 2f | 32 33 2f 38 34 20 20 20 |. C  10/|23/84   |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 2a 2f 0d 0a 2f 2a | 20 20 20 20 70 75 74 20 |  */../*|    put |
|00000110| 66 6f 72 6d 61 74 74 65 | 64 20 70 61 74 69 65 6e |formatte|d patien|
|00000120| 74 20 61 72 67 73 20 69 | 6e 74 6f 20 72 65 63 6f |t args i|nto reco|
|00000130| 72 64 2e 20 20 20 20 20 | 20 20 20 20 2a 2f 0d 0a |rd.     |    */..|
|00000140| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0a |--------|------..|
|00000190| 20 2a 20 70 75 74 66 70 | 61 74 28 29 20 69 73 20 | * putfp|at() is |
|000001a0| 75 73 65 64 20 62 79 20 | 74 68 65 20 64 65 6d 6f |used by |the demo|
|000001b0| 20 70 72 6f 67 72 61 6d | 73 20 74 6f 20 77 72 69 | program|s to wri|
|000001c0| 74 65 20 72 65 63 6f 72 | 64 73 20 74 6f 20 74 68 |te recor|ds to th|
|000001d0| 65 20 70 61 74 69 65 6e | 74 20 66 69 6c 65 0d 0a |e patien|t file..|
|000001e0| 20 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | *------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|00000230| 0a 0d 0a 23 69 6e 63 6c | 75 64 65 20 22 63 62 74 |...#incl|ude "cbt|
|00000240| 72 65 65 2e 68 22 0d 0a | 23 69 6e 63 6c 75 64 65 |ree.h"..|#include|
|00000250| 20 22 70 61 74 72 65 63 | 2e 73 74 72 22 20 20 20 | "patrec|.str"   |
|00000260| 20 20 20 2f 2a 20 70 61 | 74 69 65 6e 74 20 72 65 |   /* pa|tient re|
|00000270| 63 6f 72 64 20 73 74 72 | 75 63 74 75 72 65 20 2a |cord str|ucture *|
|00000280| 2f 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 2f 2a |/....   |      /*|
|00000290| 20 70 75 74 66 70 61 74 | 20 77 69 6c 6c 20 61 6c | putfpat| will al|
|000002a0| 77 61 79 73 20 62 65 20 | 6f 70 65 6e 65 64 20 62 |ways be |opened b|
|000002b0| 79 20 74 68 65 20 63 61 | 6c 6c 69 6e 67 20 20 20 |y the ca|lling   |
|000002c0| 20 20 20 2a 2f 0d 0a 20 | 20 20 20 20 20 20 20 20 |   */.. |        |
|000002d0| 2f 2a 20 66 75 6e 63 74 | 69 6f 6e 20 61 6e 64 20 |/* funct|ion and |
|000002e0| 6e 6f 74 20 69 6e 20 74 | 68 69 73 20 66 75 6e 63 |not in t|his func|
|000002f0| 74 69 6f 6e 2e 20 20 20 | 31 32 2f 31 30 2f 38 34 |tion.   |12/10/84|
|00000300| 20 20 20 20 20 20 2a 2f | 0d 0a 76 6f 69 64 20 70 |      */|..void p|
|00000310| 75 74 66 70 61 74 28 66 | 64 2c 20 72 65 63 6e 75 |utfpat(f|d, recnu|
|00000320| 6d 2c 20 70 72 29 0d 0a | 69 6e 74 20 20 20 66 64 |m, pr)..|int   fd|
|00000330| 3b 0d 0a 6c 6f 6e 67 20 | 20 20 72 65 63 6e 75 6d |;..long |  recnum|
|00000340| 3b 20 20 20 20 20 20 2f | 2a 20 72 65 6c 61 74 69 |;      /|* relati|
|00000350| 76 65 20 72 65 63 6f 72 | 64 20 6e 75 6d 62 65 72 |ve recor|d number|
|00000360| 20 20 20 2a 2f 0d 0a 50 | 41 54 52 45 43 20 2a 70 |   */..P|ATREC *p|
|00000370| 72 3b 20 20 20 20 20 20 | 20 20 20 2f 2a 20 70 6f |r;      |   /* po|
|00000380| 69 6e 74 65 72 20 74 6f | 20 70 61 74 69 65 6e 74 |inter to| patient|
|00000390| 20 72 65 63 6f 72 64 20 | 73 74 72 75 63 74 75 72 | record |structur|
|000003a0| 65 20 2a 2f 0d 0a 7b 0d | 0a 20 20 20 65 78 74 65 |e */..{.|.   exte|
|000003b0| 72 6e 20 6c 6f 6e 67 20 | 6c 73 65 65 6b 28 29 3b |rn long |lseek();|
|000003c0| 0d 0a 0d 0a 20 20 20 69 | 66 20 28 62 74 73 65 65 |....   i|f (btsee|
|000003d0| 6b 28 66 64 2c 20 72 65 | 63 6e 75 6d 2c 20 53 5a |k(fd, re|cnum, SZ|
|000003e0| 5f 50 41 54 52 45 43 29 | 20 3d 3d 20 2d 31 4c 29 |_PATREC)| == -1L)|
|000003f0| 0d 0a 20 20 20 20 20 20 | 63 6b 65 72 72 6f 72 28 |..      |ckerror(|
|00000400| 2d 20 43 4b 5f 53 45 45 | 4b 2c 20 22 50 55 54 46 |- CK_SEE|K, "PUTF|
|00000410| 50 41 54 2e 63 22 29 3b | 0d 0a 20 20 20 69 66 20 |PAT.c");|..   if |
|00000420| 28 77 72 69 74 65 28 66 | 64 2c 20 28 63 68 61 72 |(write(f|d, (char|
|00000430| 20 2a 29 70 72 2c 20 53 | 5a 5f 50 41 54 52 45 43 | *)pr, S|Z_PATREC|
|00000440| 29 20 3d 3d 20 45 52 52 | 29 0d 0a 20 20 20 20 20 |) == ERR|)..     |
|00000450| 20 63 6b 65 72 72 6f 72 | 28 2d 20 43 4b 5f 57 52 | ckerror|(- CK_WR|
|00000460| 49 54 2c 20 22 50 55 54 | 46 50 41 54 2e 63 3a 20 |IT, "PUT|FPAT.c: |
|00000470| 70 72 22 29 3b 0d 0a 7d | 0d 0a 0d 0a             |pr");..}|....    |
+--------+-------------------------+-------------------------+--------+--------+