Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ACKQNQ

Package: Quasar

Routine: ACKQNQ


Information

ACKQNQ ;AUG/JLTP,AEM BIR/PTD HCIOFO/BH HCIOFO/AG - Inquire - A&SP Patient ;18 Jun 2013 10:09 AM

Source Information

Source file <ACKQNQ.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN ; Introduce option.
DIC ; LOOKUP PATIENT
ASK ; Update patient's diagnostic history?
DEV
EN
PRINT
EXIT
EN1 ; CALL THIS ENTRY POINT INSTEAD OF EN
INP ; PRINT INPATIENT INFO
RATDIS ; Display Patients RATED DISABILITIES
DIAGHIST ;
CLASDIS ; Display Patient Servive Classifications
DIHEAD
ICDSORT ;
UPDATE ; Update patient's diagnostic history in 509850.2.
; ACKDFN is defined upon entry to this module.
PAGE(RESERVE,FORCE) ;
PRTHEAD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: "PATIENT: ",ACK(1),?45,"DOB: ",ACK(2),?63,"SSN: ",ACK(3)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"ELIGIBILITY: ",ACK(9)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?45,"INITIAL VISIT DATE: ",ACKIVD
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,ACK(4)
  • Condition for execution: $L(ACK(4))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,ACK(5)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Patient is Service Connected."
  • Line Location: PRINT+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: !!,"Press return to continue."
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: !,"WARD: ",ACK(6),?20,"ROOM/BED: ",ACK(7),?40,"TREATING SPEC: ",$E(ACK(8),1,25)
  • Line Location: INP+1
Function Call: WRITE
  • Prompt: IOUON,"Rated Disabilities",IOUOFF,!
  • Line Location: RATDIS+6
Function Call: WRITE
  • Prompt: !,X1_" ("_$P(X,U,2)_"%)"
  • Line Location: RATDIS+13
Function Call: WRITE
  • Prompt: " (SC)"
  • Line Location: RATDIS+13
Function Call: WRITE
  • Prompt: IOUON,"Patient Diagnostic History",IOUOFF
  • Line Location: DIAGHIST+6
Function Call: WRITE
  • Prompt: !,$S($P(VADM(5),U)="F":"Ms. ",1:"Mr. "),$P(VADM(1),",")," has been seen for the following:",!
  • Line Location: DIAGHIST+7
Function Call: WRITE
  • Prompt: IOUON,"Patient Diagnostic History (cont'd)"," (",ACK(1),")",IOUOFF,!
  • Line Location: DIAGHIST+15
Function Call: WRITE
  • Prompt: IOUON,"Patient Diagnostic History (cont'd)"," (",ACK(1),")",IOUOFF,!
  • Line Location: DIAGHIST+33
Function Call: WRITE
  • Prompt: !,$P(ACKICD(ACKI,ACKICDX),U),?15,$P(ACKICD(ACKI,ACKICDX),U,3),?60,$$NUMDT^ACKQUTL($P(ACKICD(ACKI,ACKICDX),U,4))
  • Line Location: DIAGHIST+36
Function Call: WRITE
  • Prompt: IOUON,"Service Classifications",IOUOFF,!
  • Line Location: CLASDIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLASDIS+7
Function Call: WRITE
  • Prompt: !,"DIAGNOSIS",?60,"DATE ENTERED",!,$$REPEAT^XLFSTR("-",IOM-1)
  • Line Location: DIHEAD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,"ICD-9-CM",!
  • Line Location: PRTHEAD+2
Function Call: WRITE
  • Prompt: !,ACKDX,?15,ACKICDDS(1),?60,ACKDATE
  • Line Location: PRTHEAD+9
Function Call: WRITE
  • Prompt: !?15,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+10
Function Call: WRITE
  • Prompt: !!,"ICD-10-CM",!
  • Line Location: PRTHEAD+12
Function Call: WRITE
  • Prompt: !,ACKDX,?15,ACKICDDS(1),?60,ACKDATE
  • Line Location: PRTHEAD+19
Function Call: WRITE
  • Prompt: !?15,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+20
Info |  Source |  Entry Points |  Interaction Calls