{"aaData": [["MARITAL STATUS", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^11:AEMNQZ
\n", "
Select from the available listing this patient's current marital status.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["RACE", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^10:AEMNQZ
\n", "
Select the race which best identifies this patient.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["OCCUPATION", "
PATIENT
\n", "
\n
\n\n
\n", "
FO^1:30
\n", "
Enter the patient's occupation, 1-30 characters.
\n", "", "", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["RELIGIOUS PREFERENCE", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^13:AEMNQZ
\n", "
Enter the patient's religious preference.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["SOCIAL SECURITY NUMBER", "
PATIENT
\n", "
\n
\n\n
\n", "
FO^9:9^K:X'?9N X
\n", "
Enter the patient's SSN, 9 digits no dashes.
\n", "", "", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["SERVICE CONNECTED?", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^Y:YES;N:NO
\n", "
Enter Y(es) if this patient is service connected, N(o) if not.
\n", "", "
S:$D(Y(0))#2 Y=Y(0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["SERVICE CONNECTED PERCENTAGE", "
PATIENT
\n", "
\n
\n\n
\n", "
NO^0:100:0
\n", "
Enter the percentage of service connection between 0 and 100%.
\n", "", "", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["COVERED BY HEALTH INSURANCE?", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^Y:YES;N:NO;U:UNKNOWN;
\n", "
Enter Y(es) if this patient is covered by health insurance.
\n", "
\nChoose from:\n  Y   YES\n  N   NO\n  U   UNKNOWN\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["DATE OF DEATH", "
PATIENT
\n", "
\n
\n\n
\n", "
DO^::EPT
\n", "
Enter the date this patient died.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["SPINAL CORD INJURY", "
PATIENT
\n", "
\n
\n\n
\n", "
SO^1:PARAPLEGIA-TRAUMATIC;2:QUADRIPLEGIA-TRAUMATIC;3:PARAPLEGIA-NONTRAUMATIC;4:QUADRIPLEGIA-NONTRAUMATIC;X:NOT APPLICABLE;
\n", "
Enter the appropriate code.
\n", "
\nChoose from:\n  1   PARAPLEGIA-TRAUMATIC\n  2   QUADRIPLEGIA-TRAUMATIC\n  3   PARAPLEGIA-NONTRAUMATIC\n  4   QUADRIPLEGIA-NONTRAUMATIC\n  X   NOT APPLICABLE\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["LOG IN DATE/TIME", "
PATIENT
\n", "
\n
\n\n
\n", "
DO^::ETRPX
\n", "
Enter the date/time this patient was logged as a new application for care.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["LOG IN STATUS", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^0:10/10 VISIT;1:UNSCHEDULED;2:APPLICATION WITHOUT EXAM;
\n", "
Enter the status of this patient's visit.
\n", "", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["TYPE OF BENEFIT APPLIED FOR", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^1:HOSPITAL;2:DOMICILIARY;3:OUTPATIENT MEDICAL;4:OUTPATIENT DENTAL;5:NURSING HOME CARE;
\n", "
Enter the type of benefit this patient applied for.
\n", "
\nChoose from:\n  1   HOSPITAL\n  2   DOMICILIARY\n  3   OUTPATIENT MEDICAL\n  4   OUTPATIENT DENTAL\n  5   NURSING HOME CARE\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["TYPE OF CARE APPLIED FOR", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^1:DENTAL;2:PLASTIC SURGERY;3:STERILIZATION;4:PREGNANCY;5:ALL OTHER;
\n", "
Enter the type of care this patient is applying for.
\n", "
\nChoose from:\n  1   DENTAL\n  2   PLASTIC SURGERY\n  3   STERILIZATION\n  4   PREGNANCY\n  5   ALL OTHER\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["LOG OUT DATE/TIME", "
PATIENT
\n", "
\n
\n\n
\n", "
DO^::ETRX
\n", "
Enter the date/time this application for care was dispositioned.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["DISPOSITION", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^37:AEMNQZ
\n", "
Enter the disposition of this application for care.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["REASON FOR LATE DISPOSITION", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^30:AEMNQZ
\n", "
Enter the reason this application for care took so long to disposition.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"DIS\",9999998.9999999-QAMEVENT))
\n"], ["APPOINTMENT DATE/TIME", "
PATIENT
\n", "
\n
\n\n
\n", "
DO^::ETRX
\n", "
Enter the date/time of this patient's appointment.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"S\",QAMEVENT-.0000001))
\n"], ["CLINIC", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^44:AEMNQZ
\n", "
Enter the name of the clinic where this patient's appointment was.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"S\",QAMEVENT-.0000001))
\n"], ["APPOINTMENT STATUS", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^N:NO-SHOW;C:CANCELLED BY CLINIC;NA:NO-SHOW & AUTO RE-BOOK;CA:CANCELLED BY CLINIC & AUTO RE-BOOK;I:INPATIENT APPOINTMENT;PC:CANCELLED BY PATIENT;PCA:CANCELLED BY PATIENT & AUTO-REBOOK
\n", "
Enter the status of this patient's appointment.
\n", "
\nChoose from:\n   N     NO-SHOW\n   C     CANCELLED BY CLINIC\n   NA    NO-SHOW & AUTO RE-BOOK\n   CA    CANCELLED BY CLINIC & AUTO RE-BOOK\n   I     INPATIENT APPOINTMENT\n   PC    CANCELLED BY PATIENT\n   PCA   CANCELLED BY PATIENT & AUTO-REBOOK\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"S\",QAMEVENT-.0000001))
\n"], ["PURPOSE OF VISIT", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^1:C&P;2:10-10;3:SCHEDULED VISIT;4:UNSCHED. VISIT;
\n", "
Enter the purpose of this atient's visit.
\n", "", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"S\",QAMEVENT-.0000001))
\n"], ["APPOINTMENT TYPE", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^409.1:AEMNQZ
\n", "
Enter this patient's appointment type.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"S\",QAMEVENT-.0000001))
\n"], ["APPT. CANCELLATION REASON", "
PATIENT
\n", "
\n
\n\n
\n", "
PO^409.2:AEMNQZ
\n", "
Enter the reason for the cancellation of this appointment.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,\"S\",QAMEVENT-.0000001))
\n"], ["MOVEMENT DATE/TIME", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
DO^::EST
\n", "
Enter the date of this patient's movement.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"APID\",QAMDFN,9999999.9999998-QAMEVENT)),QAMDTPT(1)=+$O(^DGPM(\"APID\",QAMDFN,QA,0))
\n"], ["TRANSACTION TYPE", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^405.3:AEMNQZ
\n", "
Enter the MAS transaction type for this patient movement.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"APID\",QAMDFN,9999999.9999998-QAMEVENT)),QAMDTPT(1)=+$O(^DGPM(\"APID\",QAMDFN,QA,0))
\n"], ["TYPE OF MOVEMENT", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^405.1:AEMNQZ
\n", "
Enter the MAS movement type for this patient.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"APID\",QAMDFN,9999999.9999998-QAMEVENT)),QAMDTPT(1)=+$O(^DGPM(\"APID\",QAMDFN,QA,0))
\n"], ["WARD LOCATION", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^42:AEMNQZ
\n", "
Enter the ward on which the patient was placed.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMXREF=\"2^1\" D EN6^QAMUTL0
\n"], ["ROOM-BED", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^405.4:AEMNQZ
\n", "
Enter the room-bed this patient is assigned to.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMXREF=\"2^1\" D EN6^QAMUTL0
\n"], ["PRIMARY CARE PHYSICIAN", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^6:AEMNQZ
\n", "
Enter the provider assigned to this patient.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMXREF=\"6^2^1\" D EN6^QAMUTL0
\n"], ["FACILITY TREATING SPECIALTY", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^45.7:AEMNQZ
\n", "
Enter this patient's treating specialty.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMXREF=6 D EN6^QAMUTL0
\n"], ["DIAGNOSIS [SHORT]", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
FO^3:30
\n", "
Enter a 3-30 character description of this patient's diagnosis.
\n", "", "", "", "", "", "", "", "
S QAMXREF=\"2^1\" D EN6^QAMUTL0
\n"], ["ADMITTED FOR SC CONDITION?", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
SOB^Y:YES;N:N0;
\n", "
Enter Y(es) if this patient was admitted for a service connected condition.
\n", "", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMXREF=1 D EN6^QAMUTL0
\n"], ["ADMITTING REGULATION", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^43.4:AEMNQZ
\n", "
Enter the admitting regulation that best describes this admission.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMXREF=1 D EN6^QAMUTL0
\n"], ["MAS MOVEMENT TYPE", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^405.2:AEMNQZ
\n", "
Enter the patient's MAS movement type.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"APID\",QAMDFN,9999999.9999998-QAMEVENT)),QAMDTPT(1)=+$O(^DGPM(\"APID\",QAMDFN,QA,0))
\n"], ["ATTENDING PHYSICIAN", "
PATIENT MOVEMENT
\n", "
\n
\n\n
\n", "
PO^200:AEMNQZ
\n", "
Enter the name of the physician attending to this patient.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QAMXREF=\"6^2^1\" D EN6^QAMUTL0
\n"], ["EVENT DATE (FALL OUT)", "
FALL OUT
\n", "
\n
\n\n
\n", "
DO^::ESTX
\n", "
Enter the date of this patient's fall out.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", ""], ["REC CREATION DATE (FALL OUT)", "
FALL OUT
\n", "
\n
\n\n
\n", "
DO^::EX
\n", "
Enter the date the fall out record for this patient was created.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", ""], ["PTF ADMISSION DATE", "
PTF
\n", "
\n
\n\n
\n", "
DO^::EST
\n", "
Enter this patients PTF admission date.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF WARD AT DISCHARGE", "
PTF
\n", "
\n
\n\n
\n", "
PO^42:AEMNQZ
\n", "
Enter the ward this patient was discharged from.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF DRG", "
PTF
\n", "
\n
\n\n
\n", "
PO^80.2:AEMNQZ
\n", "
Enter this patients PTF DRG.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF DISCHARGE DATE", "
PTF
\n", "
\n
\n\n
\n", "
DO^::EST
\n", "
Enter this patients PTF discharge date.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF DISCHARGE SPECIALTY", "
PTF
\n", "
\n
\n\n
\n", "
PO^42.4:AEMNQZ
\n", "
Enter the bedsection this patient was discharged from.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF TYPE OF DISPOSITION", "
PTF
\n", "
\n
\n\n
\n", "
SO^1:REGULAR;2:NBC/WHILE ASIH;3:EXPIRATION 6 MONTH LIMIT;4:IRREGULAR;5:TRANSFER;6:DEATH WITH AUTOPSY;7:DEATH WITHOUT AUTOPSY;
\n", "
Enter the type of disposition for this patient for this episode of care.
\n", "
\nChoose from:\n  1   REGULAR\n  2   NBC/WHILE ASIH\n  3   EXPIRATION 6 MONTH LIMIT\n  4   IRREGULAR\n  5   TRANSFER\n  6   DEATH WITH AUTOPSY\n  7   DEATH WITHOUT AUTOPSY\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF DXLS", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the ICD diagnosis responsible for the patient's greatest length of stay.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 3", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's third ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 4", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's fourth ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 5", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's fifth ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 6", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's sixth ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 7", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's seventh ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 8", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's eighth ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 9", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's nineth ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF ICD 10", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's tenth ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF PROCEDURE 1", "
PTF
\n", "
\n
\n\n
\n", "
PO^80.1:AEMNQZ
\n", "
Enter the first procedure for this patient's current episode of care.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF PROCEDURE 2", "
PTF
\n", "
\n
\n\n
\n", "
PO^80.1:AEMNQZ
\n", "
Enter the second procedure for the patient's current episode of care.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF PROCEDURE 3", "
PTF
\n", "
\n
\n\n
\n", "
PO^80.1:AEMNQZ
\n", "
Enter the third procedure for the patient's current episode of care.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF PROCEDURE 4", "
PTF
\n", "
\n
\n\n
\n", "
PO^80.1:AEMNQZ
\n", "
Enter the fourth procedure for the patient's current episode of care.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["PTF PROCEDURE 5", "
PTF
\n", "
\n
\n\n
\n", "
PO^80.1:AEMNQZ
\n", "
Enter the fifth procedure for this patient's current episode of care.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["SEX", "
PATIENT
\n", "
\n
\n\n
\n", "
SOB^M:MALE;F:FEMALE;
\n", "
Enter the patient's sex, M(ale) or F(emale).
\n", "", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["PTF ICD 2", "
PTF
\n", "
\n
\n\n
\n", "
PO^80:AEMNQZ
\n", "
Enter the patient's second ICD diagnosis.
\n", "", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", "
S QA=+$O(^DGPM(\"ATID1\",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM(\"ATID1\",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),\"^\",16)
\n"], ["DATE/TIME S/R APPLIED", "
SECLUSION/RESTRAINT
\n", "
\n
\n\n
\n", "
DOA^::ETXR
\n", "
You may not enter a future date.time.
\n", "
\nDate/time seclusion and/or restraint actually applied to patient.\n
\n
\n", "
X ^DD(\"DD\")
\n", "", "", "", "", "", ""], ["S/R WARD", "
SECLUSION/RESTRAINT
\n", "
\n
\n\n
\n", "
POA^44:AEMNQZ
\n", "
Ward (hospital location) seclusion/restraint occurred.
\n", "
\nWard (hospital location) seclusion/restraint occurred.\n
\n
\n", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", ""], ["NAME OF NURSE PRESENT S/R", "
SECLUSION/RESTRAINT
\n", "
\n
\n\n
\n", "
POA^200:AEMNQZ
\n", "
Supervisory nurse responsible for carrying out of seclusion/restraint action.
\n", "
\nSupervisory nurse responsible for carrying out of seclusion/restraint\naction.\n
\n
\n", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", ""], ["S/R ORDERED BY", "
SECLUSION/RESTRAINT
\n", "
\n
\n\n
\n", "
POA^200:AEMNQZ
\n", "
Caretaker responsible for initiating the seclusion/restraint action.
\n", "
\nCaretaker responsible for initiating the seclusion/restraint action.\n
\n
\n", "
S:$D(Y(0,0))#2 Y=Y(0,0)
\n", "", "", "", "", "", ""], ["S/R ORDER TYPE", "
SECLUSION/RESTRAINT
\n", "
\n
\n\n
\n", "
SOB^w:WRITTEN;e:EMERGENCY;p:PHONE;
\n", "
Method by which seclusion/restraint order was conveyed.
\n", "
\nMethos by which seclusion/restraint order was conveyed by the responsible\ncaretaker to appropriate personnel.\n
\n
\n", "
S:$D(Y(0))#2 Y=$P(Y(0),\"^\")
\n", "", "", "", "", "", ""], ["DATE TIME OF S/R ORDER", "
SECLUSION/RESTRAINT
\n", "
\n
\n\n
\n", "
DOA^::ETXR
\n", "
Date/time of seclusion/restraint order.
\n", "
\nDate and time the order was written, phoned or the situation required\nemergency action.\n
\n
\n", "
X ^DD(\"DD\")
\n", "", "", "", "", "", ""], ["DATE OF BIRTH", "
PATIENT
\n", "
\n
\n\n
\n", "
DO^::EP
\n", "
Enter the patient's date of birth.
\n", "", "
X ^DD(\"DD\")
\n", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"], ["AGE", "
PATIENT
\n", "
\n
\n\n
\n", "
NO^1:130:0
\n", "
Enter the age of the patient in years.
\n", "
\nThis field contains the age of the patient.\n
\n
\n", "", "", "", "", "", "", "
S QAMDTPT(1)=QAMDFN
\n"]]}