{"aaData": [["1001", "NAME of Patient", "Name:\n", "SMITH,JOHN\n", "ORPNAME\n", "NAME\n", "", "", "S ORPNAME=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),\"^\"),1:\"\")\n", ""], ["1002", "SSN of Patient", "SSN:\n", "123456789\n", "ORPSSN\n", "SSN\n", "", "", "S ORPSSN=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),\"^\",9),1:\"\")\n", ""], ["1003", "SEX of Patient", "Sex:\n", "MALE\n", "ORPSEX\n", "SEX\n", "", "", "S ORPSEX=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),\"^\",2),1:\"\")\n", ""], ["1004", "AGE of Patient", "Age:\n", "55\n", "ORPAGE\n", "AGE\n", "", "", "S ORPAGE=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),\"^\",3),1:\"\")\n", ""], ["1005", "DOB of Patient", "DOB:\n", "May 4, 1955\n", "ORPDOB\n", "DOB\n", "", "", "S ORPDOB=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),\"^\",3),1:\"\")\n", ""], ["1006", "REQUESTING LOCATION", "LOC:\n", "1E ICU\n", "ORPRLOC\n", "", "", "", "S ORPRLOC=\"\" I $P($G(^OR(100,+$G(ORIFN),0)),\"^\",10) S ORPRLOC=$P(^SC(+$P(^(0),\"^\",10),0),\"^\",2)\n", ""], ["1007", "REQUESTING PHYSICIAN", "PHY:\n", "WELBY,MARCUS\n", "ORPRPHY\n", "NAME\n", "", "", "S ORPRPHY=\"\" I $G(ORIFN) N X S X=$$ORDOC^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPRPHY=X\n", ""], ["1008", "ROOM/BED of Patient", "RM/Bed:\n", "A3/1\n", "ORPRMBED\n", "", "", "", "S ORPRMBED=$S($D(^DPT(+$G(ORVP),.101)):$P(^(.101),\"^\"),1:\"\")\n", ""], ["1009", "LOCATION of Patient", "Loc:\n", "2A\n", "ORPLOC\n", "", "", "", "S ORPLOC=$S($G(LOC):$P(^SC(+LOC,0),\"^\"),$D(^DPT(+$G(ORVP),.1)):$P(^(.1),\"^\"),1:\"\")\n", ""], ["1010", "ORDER TEXT", "ORDER:\n", "TEXT\n", "OROOT\n", "TMPWRAP\n", "", "", "N Y S ORPDAD=$O(^OR(100,ORIFN,2,0)) D TEXT^ORQ12(.Y,ORIFN_$S($G(OACTION):\";\"_OACTION,1:\"\")) M ^TMP(\"ORP:\",$J)=Y S OROOT=\"^TMP(\"\"ORP:\"\",$J)\"\n", "\nLDH BLOOD SERUM LB #123 WC ROUTINE\n
\n\n"], ["1011", "START DATE", "Start:\n", "2980304.0900\n", "ORPSTRT\n", "DATE\n", "", "", "S ORPSTRT=\"\" I $P($G(^OR(100,+$G(ORIFN),0)),\"^\",8) S ORPSTRT=$P(^(0),\"^\",8)\n", ""], ["1012", "STOP DATE", "STOP:\n", "2980308.2100\n", "ORPSTOP\n", "DATE\n", "", "", "S ORPSTOP=\"\" I $D(^OR(100,+$G(ORIFN),0)) S ORPSTOP=$P(^(0),\"^\",9)\n", ""], ["1013", "ORDER DATE", "ORD:\n", "2980302.0700\n", "ORPODT\n", "DATE\n", "", "", "S ORPODT=\"\" I $D(^OR(100,+$G(ORIFN),0)) S ORPODT=$$ORDT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1))\n", ""], ["1014", "FREE TEXT", "", "Free text will appear here\n", "ORFREE\n", "", "", "", "", ""], ["1015", "ATTENDING PHYSICIAN", "ATTENDING:\n", "WELBY,MARCUS\n", "ORPATEND\n", "NAME\n", "", "", "S ORPATEND=$S($D(^DPT(+$G(ORVP),.1041)):$P(^(.1041),\"^\"),1:\"\") I ORPATEND S ORPATEND=$S($D(^VA(200,+ORPATEND,0)):$P(^(0),\"^\"),1:\"\")\n", ""], ["1016", "COLLECTION TYPE (LAB)", "Collect by:\n", "WARD COLLECT\n", "ORPCB\n", "", "", "LAB SERVICE\n", "S ORPCB=\"\" I $D(ORIFN),$D(^OR(100,ORIFN,4)) S ORPCB=$$WC^LR7OU1(^(4),ORIFN)\n", ""], ["1017", "LAB ORDER #", "LB #\n", "1513\n", "ORPLB\n", "", "", "LAB SERVICE\n", "S ORPLB=\"\" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPLB=+$P(^(4),\"^\")\n", ""], ["1018", "LAB TEST", "Test:\n", "TEXT\n", "OROOT2\n", "TMPWRAP\n", "", "", "N Y S ORPDAD=$O(^OR(100,ORIFN,2,0)) D TEXT^ORQ12(.Y,ORIFN_$S($G(OACTION):\";\"_OACTION,1:\"\")) M ^TMP(\"ORP:\",$J)=Y S OROOT2=\"^TMP(\"\"ORP:\"\",$J)\"\n", "\nLDH BLOOD SERUM LB #123 WC ROUTINE\n
\n\n"], ["1019", "LAB URGENCY", "Urgency:\n", "STAT\n", "ORPURG\n", "", "", "LAB SERVICE\n", "S ORPURG=\"\" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPURG=$$LU^LR7OU1(^(4),ORIFN)\n", ""], ["1020", "TIME COLLECTED", "Time Collected:\n", "2980304.0730\n", "ORPTC\n", "DATE\n", "", "", "S ORPTC=\"\"\n", ""], ["1021", "ENTERED BY", "Entered By:\n", "CLERK,WENDY\n", "ORPEB\n", "NAME\n", "", "", "S ORPEB=\"\" I $G(ORIFN) N X S X=$$ENTBY^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPEB=X\n", ""], ["1022", "STATUS OF ORDER", "Status:\n", "p\n", "ORPSTAT\n", "", "", "", "S ORPSTAT=$P($G(^OR(100,+$G(ORIFN),8,+$G(OACTION),0)),\"^\",15) S:ORPSTAT=\"\" ORPSTAT=$P($G(^OR(100,+$G(ORIFN),3)),\"^\",3) S:ORPSTAT'=\"\" ORPSTAT=$P(^ORD(100.01,ORPSTAT,.1),\"^\")\n", ""], ["1026", "ELECTRONIC SIGNATURE NAME", "/ES/\n", "/es/ Marcus Welby, MD\n", "ORPES\n", "", "", "", "S ORPES=\"\" I $G(ORIFN) N X S X=$E($$ESNAME^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)),1,30) S:$L(X) ORPES=X\n", ""], ["1028", "ENTERED BY (Initials)", "Entered By:\n", "WC\n", "ORPEBI\n", "", "", "", "S ORPEBI=\"\" I $G(ORIFN) N X S X=$$ENTINT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPEBI=X\n", ""], ["1029", "HORIZONTAL LINE", "", "-------------------------------------------------------------------------------\n", "ORPLINE\n", "", "", "", "S $P(ORPLINE,\"-\",132)=\"\",ORPLINE=$E(ORPLINE,1,$S($D(IOM):(IOM-1),1:79))\n", ""], ["1032", "NATURE OF ORDER", "NATURE:\n", "VERBAL\n", "ORPNAT\n", "", "", "", "S ORPNAT=\"\" I $G(ORIFN) S ORPNAT=$$NAT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1))\n", ""], ["1033", "CURRENT DATE", "Date:\n", "2980425\n", "ORPDT\n", "DATE\n", "", "", "S ORPDT=DT\n", ""], ["1034", "REASON FOR REQUEST", "REASON:\n", "WORD\n", "OROOT3\n", "WORD\n", "", "CONSULT/REQUEST TRACKING\n", "S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:\"\") S OROOT3=\"^GMR(123,\"_+ORPK_\",20)\"\n", "\nThe patient complains of severe, radiating substernal chest pain, yet\nshows no sign of ST segment elevation, straightening or depression, or\nT-wave peaking or inversion in either resting or stress test ECG.\nThe ECG also shows no Q-wave, so inferior infarct is not suspected.\nPatient has no history of angina pectoris, or tobacco use, and claims\nonly moderate alcohol use. Pain is alleviated by administration of\nnitroglycerin.\n
\n\n"], ["1035", "PROVISIONAL DIAGNOSIS", "PROVISIONAL DX:\n", "R/O ACUTE ISCHEMIC HEART DISEASE\n", "ORPDX\n", "", "", "CONSULT/REQUEST TRACKING\n", "S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:\"\") S ORPDX=$S($D(^GMR(123,+ORPK,30)):^(30),1:\"\")\n", ""], ["1036", "CONSULTANT", "TO:\n", "CARDIOLOGY\n", "ORPCTO\n", "", "", "CONSULT/REQUEST TRACKING\n", "N X S X=$G(^OR(100,+$G(ORIFN),4)),ORPCTO=$S($D(^GMR(123,+X,0)):$P($G(^GMR(123.5,+$P(^(0),U,5),0)),U),1:\"\")\n", ""], ["1037", "PLACE OF CONSULTATION", "PLACE:\n", "BEDSIDE\n", "ORPLACE\n", "", "", "CONSULT/REQUEST TRACKING\n", "S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:\"\") S ORPLACE=\"\" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,10),0)) S ORPLACE=$E($P(^(0),U,2),1,18)\n", ""], ["1038", "CONSULT URGENCY", "URG:\n", "EMERGENCY\n", "ORPCURG\n", "", "", "CONSULT/REQUEST TRACKING\n", "S ORPK=$S($D(^OR(100,+ORIFN,4)):^(4),1:\"\"),ORPCURG=\"\" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^(0),U,9),0)) S ORPCURG=$P(^(0),U,2),ORPCURG=$S(ORPCURG[\"Urgency\":$P(ORPCURG,\" Urg\"),ORPCURG[\"Within\":$P(ORPCURG,\"Within \",2),1:ORPCURG)\n", ""], ["1039", "REQUEST TYPE", "", "Procedure Request:\n", "ORPCTYPE\n", "", "", "CONSULT/REQUEST TRACKING\n", "S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:\"\"),ORPCTYPE=\"\" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,17),0)) S ORPCTYPE=$P(^(0),U,2)_\" Request:\"\n", ""], ["1040", "LAB ACCESSION", "", "HE 0304 10\n", "ORPACC\n", "", "", "LAB SERVICE\n", "S ORPACC=\"\" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPACC=$$ACC^LR7OU1(^(4),ORIFN)\n", ""], ["1041", "PROCEDURE/CONSULT TYPE", "", "Catheterization\n", "ORPCPROC\n", "", "", "CONSULT/REQUEST TRACKING\n", "S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:\"\"),ORPCPROC=\"\" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,8),0)) S ORPCPROC=$P(^(0),U,2)\n", ""], ["1042", "ELECTRONIC SIGNATURE TITLE", "", "Chief of Surgery\n", "ORPDOT\n", "", "", "", "S ORPDOT=\"\" I $G(ORIFN) N X S X=$$ESTIT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPDOT=X\n", ""], ["1043", "LAB COLLECTION w/CONTAINER", "", "SERUM RED TOP\n", "ORPCOT\n", "", "", "LAB SERVICE\n", "S ORPCOT=\"\" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPCOT=$$COL^LR7OU1(^(4),ORIFN)\n", ""], ["1044", "CURRENT DATE/TIME", "Date/time:\n", "2980411.1013\n", "ORPDTT\n", "DATE\n", "", "", "S ORPDTT=$$NOW^XLFDT\n", ""], ["1045", "DC by & when", "", "DISCONTINUED by RALPH GRAMDOM on: JAN 3, 1998@11:04\n", "ORPDCBY\n", "", "", "", "S ORPDCBY=$$BY^ORPR07($G(ORIFN))\n", ""], ["1046", "WARD COMMENTS ON LAB SPECIMEN", "WARD COMMENTS:\n", "TEXT\n", "OROOT6\n", "TEXT\n", "COMPILE\n", "", "S OROOT6=\"\" I $G(ORIFN) S OROOT6=$$WARDREM^ORPR07(ORIFN)\n", "\nPlease call with test results.\n
\n\n"], ["1047", "RX ADMINISTRATION TIMES", "ADMIN TIMES:\n", "TEXT\n", "OROOT1\n", "TMPWRAP\n", "", "INPATIENT MEDICATIONS\n", "N Y D RX^ORPR07($G(ORIFN),\"SCH\",.Y) I $O(Y(0)) M ^TMP(\"ORP:\",$J)=Y S OROOT1=\"^TMP(\"\"ORP:\"\",$J)\"\n", "\n08-16-24\n06\n
\n\n"], ["1048", "RX SPECIAL INSTRUCTIONS", "Special Inst:\n", "TAKE WITH FOOD\n", "ORSPIN\n", "", "", "INPATIENT MEDICATIONS\n", "S ORSPIN=\"\" K Y D RX^ORPR07($G(ORIFN),\"SI\",.Y) S ORSPIN=$G(Y)\n", "\n \n
\n\n"], ["1050", "PRIMARY CARE PHYSICIAN", "PRIMARY:\n", "CASEY,BEN\n", "ORPPRIM\n", "NAME\n", "", "", "S ORPPRIM=$S($D(^DPT(+$G(ORVP),.104)):$P(^(.104),\"^\"),1:\"\")\n", ""], ["1070", "DC REASON", "", "DC'ed >Duplicate\n", "ORXREAS\n", "", "", "", "S ORXREAS=\"\" I $G(ORIFN) S ORXREAS=$G(^OR(100,ORIFN,6)),ORXREAS=$S($L($P(ORXREAS,\"^\",5)):$P(ORXREAS,\"^\",5),$P(ORXREAS,\"^\",4):$P(^ORD(100.03,$P(ORXREAS,\"^\",4),0),\"^\"),+ORXREAS:$P(^ORD(100.02,+ORXREAS,0),\"^\"),1:\"\")\n", ""], ["1071", "DC PERSON", "", "By: BROWN, JOHN (Pharmacist)\n", "ORXRBY\n", "", "", "", "S ORXRBY=\"\" I $G(ORIFN),$L($P($G(^OR(100,ORIFN,6)),\"^\",2)) S X=$P(^(6),\"^\",2),ORXRBY=\"By: \"_$P(^VA(200,X,0),\"^\")_$S($P(^(0),\"^\",9):\" (\"_$E($P(^DIC(3.1,$P(^(0),\"^\",9),0),\"^\"),1,10)_\")\",1:\"\")\n", ""], ["1072", "DC DATE", "", "4/1/1998 12:34\n", "ORXRDT\n", "", "", "", "S ORXRDT=\"\" I $G(ORIFN),$L($P($G(^OR(100,ORIFN,6)),\"^\",3)) S X=$P(^(6),\"^\",3),ORXRDT=$$DATE^ORU(X)_\" \"_$$TIME^ORU(X)\n", ""], ["1074", "WHEN PRINTED", "", "Printed: 7/27/1998 11:30\n", "ORPMAN\n", "", "", "", "S ORPMAN=$S($D(ORRACT):\"Manual Reprint: \",1:\" Printed: \")_$$DATE^ORU($$NOW^XLFDT,\"MM/DD/CCYY HR:MIN\")\n", ""], ["1075", "EFFECTIVE DATE", "Effective date:\n", "2980304.0900\n", "OREFFDT\n", "DATE\n", "", "", "S OREFFDT=\"\" I $O(^OR(100,+$G(ORIFN),4.5,\"ID\",\"START\",0)) S OREFFDT=$G(^OR(100,ORIFN,4.5,$O(^(0)),1))\n", ""], ["1076", "RX LABEL-INPATIENT", "", "TEXT\n", "OROOT5\n", "TMPWRAP\n", "EXECUTE\n", "INPATIENT MEDICATIONS\n", "D LABEL^ORPR07(.OROOT5,$G(ORIFN),$G(ORSILENT),$G(OACTION)) S Y=\"OROOT5\"\n", "\n03/03 | | (F1990)|\nGENTAMICIN CREAM,TOP |\nGive: 1GM TOP QD |\n |\n RPH: _____RN: _____|\n
\n\n"], ["1077", "LAB TEST.SPECIMEN COMMENTS", "TEST/SPEC COMMENT:\n", "TEXT\n", "ORUT\n", "TEXT\n", "", "LAB SERVICE\n", "I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORUT=$$SAMPCOM^LR7OU1(^(4),ORIFN)\n", "\nPUT ON ICE.\nSEND TO LAB ASAP.\n
\n\n"], ["1078", "LAB TEST COMMENTS", "TEST COMMENT:\n", "TEXT\n", "OROT\n", "TEXT\n", "", "LAB SERVICE\n", "I $G(ORIFN),$D(^OR(100,ORIFN,4)) S OROT=$$WARDCOM^LR7OU1(^(4),ORIFN)\n", "\nPUT ON ICE.\nSEND TO LAB ASAP.\n
\n\n"], ["1079", "CONSULT RESULTS", "", "TEXT\n", "ORCOT\n", "TEXT\n", "EXECUTE\n", "", "Q\n", "\nThis print field is currently disabled\n
\n\n"], ["1080", "RX ROUTING", "Routing:\n", "MAIL\n", "ORPROUT\n", "", "", "", "S ORPROUT=\"\" I $G(ORIFN) S ORPROUT=$$VALUE^ORX4(ORIFN,\"PICKUP\",1,\"E\")\n", ""], ["1081", "DIGITAL PAGER CLINICIAN", "D.PAGER:\n", "6969\n", "ORPDPAG\n", "", "", "", "S ORPDPAG=\"\" I $G(ORIFN) N X S X=$$PHONE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1),8) S:$L(X) ORPDPAG=X\n", ""], ["1082", "ANALOG PAGER CLINICIAN", "A.PAGER:\n", "6969\n", "ORPAPAG\n", "", "", "", "S ORPAPAG=\"\" I $G(ORIFN) N X S X=$$PHONE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1),7) S:$L(X) ORPAPAG=X\n", ""], ["1083", "RX URGENCY", "Urgency:\n", "ASAP\n", "ORPRXURG\n", "", "", "", "S ORPRXURG=\"\" I $G(ORIFN) S ORPRXURG=$$VALUE^ORX4(ORIFN,\"URGENCY\",1,\"E\")\n", ""], ["1084", "ENTERED BY SIGNATURE TITLE", "", "Nursing\n", "ORPEST\n", "", "", "", "S ORPEST=\"\" I $G(ORIFN) N X S X=$$ENTIT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPEST=X\n", ""], ["1085", "VERIFYING NURSE INITIALS", "Verifying Nurse:\n", "NN\n", "ORPVNI\n", "", "", "", "S ORPVNI=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",3)\n", ""], ["1086", "VERIFYING NURSE NAME", "Verifying Nurse:\n", "NURSER,NANCY\n", "ORPVNN\n", "", "", "", "S ORPVNN=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",2)\n", ""], ["1087", "VERIFYING NURSE TITLE", "Nurse Title:\n", "RN\n", "ORPVNT\n", "", "", "", "S ORPVNT=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",4) S:$L(ORPVNT) ORPVNT=\" (\"_ORPVNT_\")\"\n", ""], ["1088", "VERIFYING NURSE DATE/TIME", "D/T Nurse Ver:\n", "2990201.0015\n", "ORPVNDT\n", "DATETIME\n", "", "", "S ORPVNDT=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",5)\n", ""], ["1089", "VERIFYING CLERK INITIALS", "Verifying Clerk:\n", "BC\n", "ORPVCI\n", "", "", "", "S ORPVCI=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",3)\n", ""], ["1090", "VERIFYING CLERK NAME", "Verifying Clerk:\n", "CLARK,BETTY\n", "ORPVCN\n", "", "", "", "S ORPVCN=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",2)\n", ""], ["1091", "VERIFYING CLERK TITLE", "Clerk Title:\n", "Secretary\n", "ORPVCT\n", "", "", "", "S ORPVCT=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",4) S:$L(ORPVCT) ORPVCT=\" (\"_ORPVCT_\")\"\n", ""], ["1092", "VERIFYING CLERK DATE/TIME", "D/T Clerk Verified:\n", "2990201.0015\n", "ORPVCDT\n", "DATETIME\n", "", "", "S ORPVCDT=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",5)\n", ""], ["1093", "CHART REVIEW BY INITIALS", "Reviewer:\n", "NN\n", "ORPRVI\n", "", "", "", "S ORPRVI=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",3)\n", ""], ["1094", "CHART REVIEW BY NAME", "Reviewer:\n", "NURSER,NANCY\n", "ORPRVN\n", "", "", "", "S ORPRVN=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",2)\n", ""], ["1095", "CHART REVIEW BY TITLE", "Reviewer Title:\n", "RN\n", "ORPRVT\n", "", "", "", "S ORPRVT=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",4) S:$L(ORPRVT) ORPRVT=\" (\"_ORPRVT_\")\"\n", ""], ["1096", "CHART REVIEW BY DATE/TIME", "Review D/T:\n", "2990201.0015\n", "ORPRVDT\n", "DATETIME\n", "", "", "S ORPRVDT=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),\"^\",5)\n", ""], ["1097", "ELECTRONIC SIGNATURE DATE/TIME", "", "2990304.1214\n", "ORPESD\n", "DATETIME\n", "", "", "S ORPESD=\"\" I $G(ORIFN) N X S X=$E($$ESDATE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)),1,30) S:$L(X) ORPESD=X\n", ""], ["1098", "CONSULTS SERVICE COPY", "", "TEXT\n", "", "", "EXECUTE\n", "CONSULT/REQUEST TRACKING\n", "D EN^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))\n", ""], ["1099", "DATE/TIME SIGNED ONLINE", "", "2990304.1214\n", "ORPESO\n", "DATETIME\n", "", "", "S ORPESO=\"\" I $G(ORIFN) N X S X=$E($$ESODATE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)),1,30) S:$L(X) ORPESO=X\n", ""], ["2000", "CONSULT NEW BODY", "", "TEXT\n", "", "", "EXECUTE\n", "CONSULT/REQUEST TRACKING\n", "D EN1^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))\n", ""], ["2002", "FH SPEC MEAL ESIG TITLE", "", "Chief of Dietetics\n", "ORPDOT\n", "", "", "DIETETICS\n", "S ORPDOT=\"\" I ''$D(^XUSEC(\"FHAUTH\",DUZ)) S X=$P($G(^VA(200,DUZ,20)),\"^\",3) S:$L(X) ORPDOT=X\n", ""], ["2003", "FH SPEC MEAL ESIG DATE", "", "3040404.1253\n", "ORPESD\n", "DATETIME\n", "", "DIETETICS\n", "S ORPESD=\"\" I ''$D(^XUSEC(\"FHAUTH\",DUZ)) S X=DT S:$L(X) ORPESD=X\n", ""], ["2004", "FH SPEC MEAL ESIG NAME", "/ES/\n", "/es/ Marcus Welby, MD\n", "ORPES\n", "", "", "DIETETICS\n", "S ORPES=\"\" I ''$D(^XUSEC(\"FHAUTH\",DUZ)) S X=$P($G(^VA(200,DUZ,20)),\"^\",2) S:$L(X) X=\"/es/\"_X S:$L(X) ORPES=X\n", ""], ["2005", "FH SPEC MEAL LOCATION", "Req Loc:\n", "General Medicine\n", "ORPRLOC\n", "", "", "DIETETICS\n", "S ORPRLOC=\"\" I $P($G(^OR(100,+$G(ORIFN),0)),\"^\",10) S ORPRLOC=$$NFSLOC^ORWDFH(+$P(^(0),\"^\",10))\n", ""], ["2006", "FH SPEC MEAL LAST4 SSN", "", "", "ORPLAST4\n", "", "", "DIETETICS\n", "S ORPLAST4=$S($D(^DPT(+$G(ORVP),0)):\"(\"_$E($P(^(0),\"^\"),1)_$E($P(^(0),\"^\",9),6,11)_\")\",1:\"\")\n", ""]]}